home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 4
/
Precision Software Applications Silver Collection Volume 4 (1993).iso
/
new
/
dcg303.arj
/
NEWGAME.ARJ
/
RESURECT.SCR
< prev
next >
Wrap
Text File
|
1993-04-01
|
2KB
|
65 lines
!
! Default Resurrection Script
!
! (c) DC Software, 1992
!
!
! The resurrect script is invoked with entry point @0, and is used to
! control the situation when everyone in the party dies. This particular
! script makes some vague comments and then gives the players another
! chance by seting their hit points back to their maximum and transfering
! the party to the starting place (world 0, door 0).
!
! The 'dead_count' variable is incremented to limit the number of times
! the party can be resurrected.
!
! NOTE that if you don't use the 'dead_count' variable for it's intended
! purpose, you COULD use it for something else. It is an integer variable
! that has an initial value of 0.
!
:@0
wait( 3 );
writeln( "Everything is DARK.." );
wait( 2 );
writeln( "You hear a soft, far away voice:" );
wait( 2 );
group.current = 0;
if player.level < group.dead_count then
writeln( "Another failure! How disapointing.." );
wait( 2 );
writeln( "Perhaps another one will come along.." );
wait( 2 );
writeln( "You drift into infinity.." );
pause;
ENDGAME; ! End the Game !
endif;
if group.dead_count = 0 then
writeln( "You shall have a second chance!" );
wait( 2 );
writeln( "Find your destiny!" );
else
writeln( "Hmmm.. I am disapointed in you.." );
wait( 2 );
writeln( "But you have shown potential.." );
wait( 2 );
writeln( "You shall have another chance.." );
wait( 2 );
writeln( "You must find your destiny!" );
endif;
wait( 2 );
writeln( "You wake, disoriented and confused..." );
wait( 5 );
for L0 = 0 to group.size do
group.current = L0;
player.hp = player.mhp; ! Restore Complete Points !
endfor;
teleport( 0, 0 ); ! World 0, Door 0 !
inc(group.dead_count);
STOP;